unit uFiltrCells;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, AdvEdit, AdvCombo, Buttons, AdvToolBtn;

type
  TFFilterCells = class(TForm)
    cbFiltr: TCheckBox;
    cobFiltr: TAdvComboBox;
    edFiltr: TAdvEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    cbxPuste: TCheckBox;
    BitBtn3: TBitBtn;
    btHelp4: TAdvToolButton;
    procedure cbFiltrClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btHelp4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Znak : string;
  end;

var
  FFilterCells: TFFilterCells;

implementation

{$R *.DFM}

procedure TFFilterCells.cbFiltrClick(Sender: TObject);
begin
  cobFiltr.Enabled := cbFiltr.Checked;
  edFiltr.Enabled :=  cbFiltr.Checked;
  cbxPuste.Enabled :=  cbFiltr.Checked;
end;

procedure TFFilterCells.FormShow(Sender: TObject);
begin
  if znak = '=' then cobFiltr.ItemIndex := 0 else
  if znak = '>=' then cobFiltr.ItemIndex := 1 else
  if znak = '>' then cobFiltr.ItemIndex := 2 else
  if znak = '<=' then cobFiltr.ItemIndex := 3 else
  if znak = '<' then cobFiltr.ItemIndex := 4;
end;

procedure TFFilterCells.btHelp4Click(Sender: TObject);
begin
  Application.HelpContext(12);
end;

end.
